subroutine print_c_time(t_array,str)
  implicit none
  integer :: t_array(8)
  character :: str*(*)

900 format(i0,"/",i2.2,"/",i2.2,1x,i2.2,":",i2.2,":",i2.2)
  write(str,900) t_array(1),t_array(2),&
                 t_array(3),t_array(5),&
                 t_array(6),t_array(7)
  return
end subroutine print_c_time
